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A. The Representation of SCHEME Procedures as S-expressions 

SCHEME programs are represented as LISP s-expressions. The evaluator 
interprets these s-expressions in a specified way. This specification 
constitutes the definition of the language. 

The definition of SCHEME is a little fuzzy around the edges. This is 
because of the inherent extensibility of LISP-like languages {Note LISP Is a 
Ball of Mud}. We can define a few essential features which constitute the 
"kernel" of the language, and also enumerate several syntactic and semantic 
extensions which are convenient and normally included in a given 
implementation. The existence of a mechanism for such extensions is a part of 
the kernel of SCHEME; however, any particular such extension is not 
necessarily part of the kernel. 

For those who like this sort of thing, here is the BNF for SCHEME 
programs {Note LISP BNF}: 



/**N 



<forro> ::= <non-symbol atom> | <identifier> | <magic> | Combination) 
^identifier) : := <atomic symbol) 
<magic> : .:«* <Tambda-expression> 

(QUOTE <s-expression> ) 

(IF <form> <form) <form> ) 

(IF <form> <form> ) 

(LABELS ( Oabels list) ) <body> ) 

(DEFINE <identifier) <1ambda-expression> ) 

(DEFINE identifier) ( <identifier list) ) <form) ) 

(DEFINE ( identifier) <identifier list) ) <form> ) 

(ASET' <identifier> <form> ) 

(FLUIDBIND ( <fluidbind list) ) <form) ) 

(FLUID <identifier> ) 

(FLUIDSET' identifier) <form> ) 

(CATCH identifier) <form> ) 

<syntactic extension) 
<lambda-expression> ::= (LAMBDA ( identifier list) ) <body>) 
^identifier list) ::= <empty> | ^identifier) <identifier list) 
<body) : := <form) 
<labels list) ::= <empty) 

| ( <identifier> <lambda-expression> ) <labels Hst) 
<fluidbind list) ::= <empty> | ( identifier) <form) ) <fluidbind list) 
Combination) ::= ( <form list) ) 
<form list) ::= <form> | <form> <form list) 
Syntactic extension) ::= ( <magic word) . <s-expression) ) 
<magic word) ::= <atomiq symbol) 
<non-symbol atom) :: = <number> | <array) | <string> | ... 



' JP^K 



Atoms which are not atomic symbols (identifiers) evaluate to 
themselves. Typical examples of such atoms are numbers, arrays, and strings 
(character arrays). Symbols are treated as identifiers or variables. They 
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may be lexically bound by lambda-expressions. There is a global environment 
containing values for (some) free variables. Many of the variables in this 
global environment initially have as their values primitive operations such 
as, for example, car, cons, and plus. SCHEME differs from most LISP systems in 
that the atom car is not itself an operation (in the sense of being an 
invocable object, e.g. a valid first argument to apply), but only has one as a 
value when considered as an identifier. 

Non-atomic forms are divided by the evaluator into two classes: 
combinations and "magic (special) forms". The BNF given above is ambiguous; 
any magic form can also be parsed as a combination. The evaluator always 
treats an ambiguous case as a magic form. Magic forms are recognized by the 
presence of a "magic (reserved) word" in the car position of the form. All 
non-atomic forms which are not magic forms are considered to be combinations. 
The system has a small initial set of magic words; there is also a mechanism 
for creating new ones {Note FUNGALL is a Pain). 

A combination is considered to be a list of subforms. These subforms 
are all evaluated. The first value must be a procedure; it is applied to the 
other values to get the value of the combination. There are four important 
points here: 

(1) The procedure position is always evaluated just like any other 
position. (This is why the primitive operators are the values of global 
identifiers. ) 

(2) The procedure is never "re-evaluated"; if the first subform fails to 
evaluate to an applicable procedure, it is an error. Thus, unlike most 
LISP systems, SCHEME always evaluates the first subform of a combination 
exactly once. 

(3) The arguments are all completely evaluated before the procedure is 
applied; that is, SCHEME, like most LISP systems, is an applicative-order 
language. Many SCHEME programs exploit this fact. 

(4) The argument forms (and procedure form) may in principle be evaluated 
in any order. This is unlike the usual LISP left-to-right order. (All 
SCHEME interpreters implemented so far have in fact performed left-to-right 
evaluation, but we do not wish programs to depend on this fact. Indeed, 
there are some reasons why a clever interpreter might want to evaluate them 
right-to-left, e.g. to get things on a stack in the correct order.) 



/-\ 
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/•"•n B. Catalogue of Magic Forms 

B.l. Kernel Magic Forms 

The magic forms in this section are all part of the kernel of SCHEME, 
and so must exist in any SCHEME implementation. 

(LAMBDA ( identifier list> ) <body> ) 

Lambda-expressions evaluate to procedures. Unlike most LISP 
systems, SCHEME does not consider a lambda-expression (an s-expression 
whose car is the atom lambda) to be a procedure. A lambda-expression only 
e valuates to a procedure. A lambda-expression should be thought of as a 
partial description of a procedure; a procedure and a description of it 
are conceptually distinct objects. A lambda-expression must be "closed" 
(associated with an environment) to produce a procedure object. Evaluation 
of a lambda-expression performs such a closure operation. 

The resulting procedure takes as many arguments as there are 
identifiers in the identifier list of the lambda-expression. When the 
procedure is eventually invoked, the intuitive effect is that the 
evaluation of the procedure call is equivalent to the evaluation of the 
<body> in an environment consisting of (a) the environment in which the 
r ^' lambda-expression had been evaluated to produce the procedure, plus (b) the 

pairing of the identifiers of the identifier iist> with the arguments 
supplied to the procedure. The pairings (b) take precedence over the 
environment (a), and to prevent confusion no identifier may appear twice in 
the identifier iist>. The net effect is to implement ALGOL-style lexical 
scoping [Naur], and to "solve the funarg problem" [Moses]. 

( IF <predicate> <consequent> <al ternative>) 

This is a primitive conditional operator. The predicate form is 
evaluated. If the result is non-NR {Note if Is Data-Dependent), then the 
consequent is evaluated, and otherwise the alternative is evaluated. The 
resulting value (if there is one) is the value of the if form. 

(IF <predicate> <consequent>) 

As above, but if the predicate evaluates to nil, then nil is the 
value of the if form. (As a matter of style, this is usually used only 
when the value of the if form doesn't matter, for example, when the 
consequent is intended to cause a side effect.) 
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(QUOTE <s-expression>) 

As in LISP, this quotes the argument form so that it will be passed 
verbatim as data; the value of this form is <s-expression>. If a SCHEME 
implementation has the MacLISP read-macro-character feature, then the 
abbreviation 'Foo may be used instead of (quote foo). 



(LABELS ( Oabels list> ) <body> ) 

Where Oabels 1ist> ::= <empty> | ( <identifier> Oambda-expression> ) Oabels 1ist> 

This has the effect of evaluating the <body> in an environment where 
all the identifiers (which, as for lambda, must all be distinct) in the 
labels list evaluate to the values of the respective lambda-expressions* 
Furthermore, the procedures which are the values of the lambda-expressions 
are themselves closed in that environment, and not in the outer 
environment; this allows the procedures to call themselves and each other 
recursively. For example, consider a procedure which counts all the atoms 
in a list structure recursively to all levels, but which doesn't count the 
nils which terminate lists (but nils in the car of a list count). In order 
to perform this we define two mutually recursive procedures, one to count 
the car and one to count the cdr, as follows: 

/*«*% (DEFINE COUNT 

(LAMBDA (L) 

(LABELS ((COUNTCAR 

(LAMBDA (L) 

(IF (ATOM L) 1 

( + (COUNTCAR (CAR L)) 

(C0UNTCDR (CDR L)))))) 
(C0UNTCDR 
(LAMBDA (L) 

(IF (ATOM L) 

(IF (NULL L) 1) 

(+ (COUNTCAR (CAR L)) 

(COUNTCOR (CDR L))))))) 
(COUNTCDR L)))) 

(We have decided not to use the traditional LISP label primitive in 
SCHEME because it is difficult to define several mutually recursive 
procedures using only label. Although labels is a little more complicated 
than label, it is considerably more convenient. Contrast this design 
decision with the choice of if over the more traditional cond, where the 
definitional simplicity of if outweighed the somewhat greater convenience 

Of COND. ) 
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^^ B.2. Side Effects 

These magic forms produce side effects in the environment. 

(DEFINE identifier) Oambda-expression) ) 

This is used for defining a procedure in the "global environment ,, 
permanently, as opposed to labels, which is used for temporary procedure 
definitions in a local environment. define takes a name and a lambda- 
expression; it evaluates the lambda-expression in the global environment 
and causes the' result to be the global value of the identifier, (define may 
perform other implementation-dependent operations as well, such as keeping 
track of defined procedures for an editor. For this reason it is the 
preferred way to define a globally available procedure.) 

(DEFINE identifier) ( identifier list) ) <form list) ) 
(DEFINE ( <identifier> identifier list) ) <form list) ) 

These alternative syntaxes permitted by define are equivalent to: 

(DEFINE identifier) 
VV .'■ (LAMBDA ( identifier list) ) * 

(BLOCK <form list) ))) 

where block is a syntactic extension defined below. For example, these 
three definitions are equivalent: 

(DEFINE CIRCULATE (LAMBDA (X) (RPLACD X X))J 
(DEFINE CIRCULATE (X) (RPLACD X X)) 
(DEFINE (CIRCULATE X) (RPLACD X X)) 

These forms are provided to support stylistic diversity. 

(ASET» identifier) <form)) 

This is analogous to the LISP primitive setq. For example, to 
define a cell [Smith and Hewitt], we may use aset 1 as follows: 
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/"V ' ■ (DEFINE CONS-CELL 

(LAMBDA (CONTENTS) 

(LABELS '((THE-CELL 

(LAMBDA (MSG) 

(IF (EQ MSG 'CONTENTS?) CONTENTS 
(IF (EQ MSG 'CELL?) 'YES 
(IF (EQ (CAR MSG) •<-) 

(BLOCK (ASET' CONTENTS (CADR MSG)) 

THE-CELL) 
(ERROR ' | UNRECOGNIZED MESSAGE - CELL) 
MSG 

•VRNG-TYRE-ARG))))))) 
THE-CELL))) 

Note that aset' may be used on global identifiers as well as locally bound 
identifiers {Note aset Has Disappeared}/ 



B. 3. Dynamic Magic 

These magic forms implement escape objects and fluid (dynamic) 
variables. They are not a part of the essential kernel. For a further 
explication of their semantics in terms of kernel primitives, see 

/•n: "..'■'■ .■ [Imperative], 



(FLUIDBIND ( <f1uidbind list) ) <form) ) 

Where <fluidbind list) ::= <empty> | ( identifier) <form> ) <f]uidbind list) 

This evaluates the <form>in the environment of the fluidbind form, 
with a dynamic environment to which dynamic bindings of the identifiers in 
the <fiuidbind iist> have been added. Any procedure dynamically called by the 
form, even if not lexically apparent to the fluidbind form, will see this 
dynamic environment (unless modified by further fluidbinds, of course). The 
dynamic environment is restored on return from the form. 

Most LISP systems use a dynamic environment for all variables. A 
SCHEME which implements fluidbind provides two distinct environments. The 
fluid variable named foo is completely unrelated to a normal lexical 
variable named foo {Note Global Fluid Environment}, and the access 
mechanisms for the two are distinct. 



(FLUID /identifier) ) 

The value of this form is the value of the identifier) in the 
current dynamic environment. In SCHEME implementations which have the 
MacLlSP read-macro-character feature, (fluid foo) may be abbreviated to •foo. 
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fs^ (FLUIDSET' identifier) <form> ) 



The value of the <form> is assigned to the <identificr> in the current 
cjynamic environment. 



(STATIC <identifier>) 

The value of this is the value of the lexical identifier; writing 
this is the same as writing just <identifier> {Note What Good Is It?}. 

(CATCH identifier) <form> ) 

This evaluates the form in an environment where the identifier is 
bound to an "escape object" [Landin] [Reynolds]. This is a strange object 
which can be invoked as if it were a procedure of one argument. When the 
escape object is so invoked, then control proceeds as if the catch 
expression had returned with the supplied argument as its value (Note 
Multiple Throw}. 

If both catch and fluidbind are implemented, then their semantics are 
intertwined. When the escape object is called, then the dynamic 
environment is restored to the one which was current at the time the catch 
/■"V form was evaluated {Note Environment Symmetry}. 

For a contorted example, consider the following obscure definition 
of sort (Sussman's least favorite style/Steele's favorite; but see 
[SCHEME]): 

(OEFINE SQRT 

(LAMBDA (X EPSILON) 

((LAMBDA (ANS TAG GO) 
(CATCH RETURN 
(BLOCK 
(CATCH M (ASET» TAG M)) ;CREATE PROG TAG 

(IF (< (ABS (-$ {*$ ANS ANS) X)) EPSILON) ;CAMGE 

(RETURN ANS)) ;P0PJ 

(ASET' ANS (//$ (+$ (//$ X ANS) ANS) 2.0)) ;MOVEM 
(GO TAG)))) ;JRST 

1.0. 
NIL 
(LAMBDA (F) (F NIL))))) 

This example differs slightly from the version given in [SCHEME]; notice 
the forms (return ANS) and (go tag). 

As another example, we can define a throw function, which may then 
be used with catch much as it is in MacLISP [Moon] (except that in MacLISP 
/""^ the tag is written after the body of the catch, not before): 
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(DEFINE THROW (LAMBDA (TAG RESULT) (TAG RESULT))) 

An example of its use: 

(CATCH LOSE 

(MAPCAR (LAMBDA (X) (IF (MINUSP X) (THROW LOSE NIL) (SQRT X))) 
NUMLIST)) 

Indeed, note the similarity between throw and the definition of go in the 
first example. 
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C. Syntactic Extensions 

SCHEME has a syntactic extension mechanism which provides a way to 
define an identifier to be a magic word, and to associate a function with that 
word. The function accepts the magic form as an argument, and produces a new 
form; this new form is then evaluated in place of the original (magic) form. 
This is precisely the same as the MacLISP macro facility. 



C . 1 . S y stem-Provided Extensions 

Some standard syntactic extensions are provided by the system for 
convenience in ordinary programming. They are distinguished from other magic 
words in that they are semantically defined in terms of others rather than 
being primitive {Note FEXPRs Are Okay by Us}. For expository purposes they 
are described here in a pattern-matching/production-rule kind of language. 
The matching is on s-expression structure, not on character string syntax, and 
takes advantage of the definition of list notation: (abc) « 
(a . (b . (c . nil))). Thus the pattern (x . r) matches (A b c), with x * a and 
r = (b c). The ordering of the "productions" is significant; the first one 
which matches is to be used. 



/TV. (BLOCK x r x 2 ... x n ) 



(BLOCK x) -> x 

(BLOCK x. r) ~* ((LAMBDA (A B) (B)) x (LAMBDA () (BLOCK . r))) 

block sequentially evaluates the subforms x i from left to right . For 
example: 

(BLOCK (ASET' X 43) (PRINT X) (+ X 1)) 

returns 44 after setting x to 43 and then printing it {Note block Exploits 
Applicative Order}. 



(LET <(v x X]l ) (v 2 x 2 ) ... (v n x n )) . body) 

-> ((LAMBDA (v x v 2 ... v n ) (BLOCK . body)) Xj x £ ... x R ) 

let provides a convenient syntax for binding several variables to 
corresponding quantities. It allows the forms for the quantities to appear 
textually adjacent to their corresponding variables. Notice that the 
variables are all bound simultaneously, not sequentially, and that the 
initialization forms x. may be evaluated in any order. For convenience, 
let also supplies a block around the forms constituting its body. 
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(DO. ((Vj-Xj'sj) ... (v_ x_ s_)) (test . done) . body) 

-» (LET ((Al (LAMBDA () Xj)) 

(Bl (LAMBDA (Vj ... v_) s^) 



(An (LAMBDA () x_ 


,» 








(Bn (LAMBDA (v x . 




V n> s n>> 






(TS (LAMBDA ( V]L . 




v n ) test)) 






(DN (LAMBDA (Vj . 




v n ) (BLOCK 


. done))) 


(BD (LAMBDA (Vj . 




v n ) (BLOCK 


. body)))) 


(LABELS ((LOOP 










(LAMBDA (Zl 


I ... Zn) 








(IF (TS Zl ... 


Zn) 








(DN Zl ... 


Zn) 








(BLOCK (BD Zl .. 


. Zn 






(LOOP (Bl 


Zl 








(Bn 


Zl 


(LOOP (Al) 




• (An)))) 







Zn))))))) 

This is essentially the MacLISP "new-style" do loop [Moon J. The variables 
v. are bound to the values of the corresponding x v and stepped in parallel 
after every execution of the body by the $1 (by "step" we mean "set to the. 
value of", not "increment by"). If an Si is omitted, v i is assumed; this 
results in the variable not being stepped. If in addition *^ is omitted, 
nil is assumed. The loop terminates when the test evaluates non-Na; it is 
evaluated before each execution of the body. When this occurs, the done 
part is evaluated as a bl.ock. 

The complexity of the definition shown is due to an effort to avoid 
conflict of variable names, as for block. The auxiliary variables Ai, bi, 
and zi must be generated to produce as many as are needed, but they need 
not be chosen different from all variables appearing in *., s., body, etc. 

The iteration is effected entirely by procedure calls. In this 
manner the definition of oo exploits the tail-recursive properties of 
SCHEME [SCHEME] [Imperative]. 

As an example, here is a definition of a function to find the 
length of a list: 

(DEFINE (LENGTH X) 

(DO ((Z X (CDR Z)) 
(N (+ N 1))) 
((NULL Z) H))> 

The initializations forms x i may be evaluated in any order, and on 
each iteration the stepping form s 1 may be evaluated in any order. This 
differs from the MacLISP definition of do. For example, this definition of 
nreverse (destructively reverse a list) would work in MacLISP but not 
necessarily in SCHEME: 
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(DEFINE NREVERSE (X) 

(DO ((AX (CDR A)) 

(B NIL (RPLACD A B))) 
((NULL A) B))) 

This definition depends on the cor occurring before the rplacd. In SCHEME 
we must instead write: 

(DEFINE NREVERSE (X) 

(DO ((A X (PROG1 (CDR A) (RPLACD A B))) 
(B NIL A)) 
((NULL A) B))) 

where by (progi x y) we mean ((lambda (p q) (block (q) p)) x (lambda () y)) (but progi 
is not really a defined SCHEME primitive). 

Note also that the effect of an ASEr on a do variable does not 
survive to the next iteration; this differs from using setq on a do 
variable in MacLISP. 



..(ITERATE name ((Vj ej) ... (v n e n )). body) 

-> (LABELS ((name (LAMBDA ( V]l ... v r ) (BLOCK . body)))) 
(name * l ... e )) 

This defines a looping construct more general than do. For 
example, consider a function to sort out a list of s-expressions into atoms 
and lists: 

(DEFINE COLLATE 

(LAMBDA (X) 

(ITERATE COL 

((Z X) (ATOMS NIL) (LISTS NIL)) 
(IF (NULL Z) 

(LIST ATOMS LISTS) 
(IF (ATOM (CAR Z)) 

(COL (CDR Z) (CONS (CAR Z) ATOMS) LISTS) 

(COL (CDR Z) ATOMS (CONS (CAR Z) LISTS))))))) 

We have found many situations involving loops where there may be more than 
one condition on which to exit and/or more than one condition to iterate, 
where do is too restrictive but iterate suffices. Notice that because each 
loop has a name, one can specify from an inner loop that the next iteration 
of any outer loop is to occur. Here is a function very similar to the one 
used in one SCHEME implementation for variable lookup: there are two lists 
of lists, one containing names and the other values. 
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(DEFINE (LOOKUP NAME VARS VALUES) 
(ITERATE MAJOR-LOOP 

((VARS-BACKBONE VARS) 

(VALUES-BACKBONE VALUES)) 
(IF (NULL VARS-BACKBONE) 
NIL 
(ITERATE MINOR-LOOP 

((VARS-RIB (CAR VARS-BACKBONE)) 

(VALUES-RIB (CAR VALUES-BACKBONE))) 
(IF (NULL VARS-RIB) 

(MAJOR-LOOP (COR VARS-BACKBONE) 

(COR VALUES-BACKBONE)) 
(IF (EQ (CAR VARS-RIB) NAME) 
VALUES-RIB 
(MINOR-LOOP (COR VARS-RIB) 

(COR VALUES-RIB)))))))) 

(We had originally wanted to call this construct loop, but see 
{Note funcall is a Pain}. Compare this with looping constructs appearing in 
[Hewitt].) 

It happens that iterate is a misleading name; the construct can 
actually be used for recursion ("true" recursion, as opposed to tail- 
recursion) as well. If the name is invoked from a non-tail-recursive 
situation, the argument evaluation in which the call is embedded is not 
aborted. It just so happens that we have found iterate useful primarily to 
implement complicated iterations. One can draw the rough analogy iterate : 
labels : : let : lambda. 



(TEST pred fn alt) 

■ "-* ((LAMBDA (P F A) (IF P ((F) P) (A))) 
pred 

(LAMBDA () fn) 

(LAMBDA () alt)) 

The predicate is evaluated; if its value is non-NiL then the form fn 
should evaluate to a procedure of one argument, which is then invoked on 
the value of the predicate. Otherwise the alternative ait is evaluated. 

This construct is • of occasional use with LISP "predicates" which 
return a "useful" non-NiL value. For the consequent of an if to get at the 
non-NR value of the predicate, one might first bind a variable to the 
value of the predicate, and this variable would then be visible to the 
alternative as well. With test, the use of the variable is restricted to 
the consequent. 

An example: 

(TEST (ASSQ VARIABLE ENVIRONMENT) 
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./"> ■■ COR ' 

(GLOBALVALUE VARIABLE)) 

Using an a-list to represent an environment, one wants to use the cdr of 
the result of assq if it is non-NR; but if it is nil, then the variable 
was not in the environment, and one must look elsewhere. 

(COND < Pl . e a ) ... (p n . e n )) 

(COND) -> 'NIL 

(COND (p) . r) -» ((LAMBDA (V R) (IF V V (R))) 

p 

(LAMBDA () (COND . r))) 

(COND (p => f) . r) -> (TEST pf (COND . r)) 

(COND (p . e) . r)' -» ( IF p (BLOCK . e) (COND . r)) 

This cond is a superset of the MacLISP cond. As in MacLISP, singleton 
clauses return the value of the predicate if it is non-NR, and clauses 
with two or more forms treat the first as the predicate and the rest as 
constituents of a block, thus evaluating them in order. 

The extension to the MacLISP cond made in SCHEME is flagged by the 
atom =>. (It cannot be confused with the more general case of two block 
.^"V constituents because having the atom => as the first element of a block is 

not useful.) In this situation the form f following the *> should have as 
its value, a function of one argument; if the predicate p is nori-Nii, this 
function is determined and invoked on the value returned by the predicate. 
This is useful for the common situation encountered in LISP: 

(COND ((SETQ IT (GET X 'PROPERTY)) (HACK IT)) 

which in SCHEME can be rendered without using a variable global to the 

COND: 

(COND ((GET X 'PROPERTY) 

=> (LAMBDA (IT) (HACK IT))) 
■...) 

or, in this specific instance, simply as: 

! ■ ' ' ' ■ . ' 

(COND ((GET X 'PROPERTY) ■=> HACK) 
'.'...■...). ' 
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(OR x, x- 



*n> 



(OR) '-» 'NIL 
(OR x) ■ '-» x 

(OR x . r) -► (COND (x) (T (OR . r))) 

This standard LISP primitive evaluates the forms x i in order, returning the 
first non-NiL value (and ignoring all following forms). If all forms 
produce nil, then nil is returned {Note Tail-Recursive or}. 



(AND x, x 2 



*n> 



(AND) -> ' 
(AND x) -> 
(AND x . r) 



x 



(COND (x (AND . r))) 



This standard LISP primitive evaluates the forms x i in order. # If any form 
produces nil, then nil is returned, and succeeding forms x i are ignored. If 
all forms produce non-NiL values, the value of the last is returned {Note 
Tail-Recursive anjd}. 



(AMAPCAR f x x x 2 ... 



*n> 



-» (DO ((FN f) 

(VI Xj (CDR VI)) 
(V2 x 2 (CDR V2)) 



(Vn x n (CDR Vn)) 



(0 'NIL (CONS (FN (CAR VI) (CAR V2) ... (CAR Vn)) 0))) 
((OR (NULL VI) (NULL V2) ... (NULL Vn)) 
(NREVERSE Q))) 

amapcar is analogous to the MacLISP mapcar function. The function f, a 
function of n arguments, is mapped simultaneously down the lists x lf x 2 , 
..., x p ; that is, f is applied to tuples of successive elements of the 
lists. The values returned by f are collected and returned as a list. 
Note that amapcar of a fixed number of arguments could easily be written as 
a function in SCHEME. It is a syntactic extension only so that it may 
accommodate any number of arguments, which saves the trouble of defining an 
entire set of primitive functions amapcari, amapcar2, ... where AMAPCARn takes 
n-n arguments. 



fs 
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AMAPLIST 


f *l 


x 2 ... x n ) 






~> 


(DO ((FN f) 








(VI Xj 


(CDR VI)) 






(V2 x 2 


(CDR V2)) 



(Vn x n (COR Vn)) 

(Q 'NIL (CONS (FN VI V2 . .. Vn) Q))) 
((OR (NULL VI) (NULL V2) ... (NULL Vn)) 
(NREVERSE 0))) 

amaplist is analogous to the MacLISP maplist function. The function f, a 
function of n arguments, is applied to tuples of successive tails of the 
lists. The values returned by f are collected and returned as a list. 



(AMAPC f Xj x 2 


... x ) 
n' 




-> 


(DO ((FN f) . 

(XI x x (COR XI)) 
(X2 x 2 (COR X2)) 






(Xn x n (CDR Xn))) 
((OR (NULL XI) (NULL X2) 

'NIL) 
(FN (CAR XI) (CAR X2 ) ... 


... (NULL Xn)) 
(CAR Xn))) 



amapc is analogous to the MacLISP mapc function. The procedure f, a 
procedure taking n arguments, is mapped simultaneously down the lists x^ 
* 2 > ... , x n ; that is, f is applied to tuples of successive elements of the 
lists. Thus amapc is similar to amapcar, except that no values are expected 
from f; therefore f. need not be a function, but may be any procedure. 



(PROG varlist s. s 9 ... s ) 

The SCHEME prog is like the ordinary LISP prog. There is no simple 
way to describe the transformation of prog syntax into SCHEME primitives. 
The basic idea is that a large labels statement is created, with a labelled 
procedure (of zero arguments) for each prog statement. Each statement is 
transformed in such a way that each one that "drops through"^ is made to 
call the labelled procedure for the succeeding statement; each appearance 
of (go tag) is converted to a call on the labelled procedure for the 
statement following the tag; and each appearance of (return value) is 
replaced by value. 

Practical experience with SCHEME has shown that prog is almost 
never used. It i$ usually more convenient just to write the corresponding 
labels directly. This allows one to write labels procedures which take 
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arguments, which tends to clarify the flow of data [Imperative], 



The rest of this section (FSUBRs) applies only to the PDP-10 MacLISP 
implementation of SCHEME/ 



FSUBRs 

As a user convenience, the PDP-10 MacLISP implementation' of SCHEME 
treats FSUBRs specially; any FSUBR provided by the MacLISP system is 
automatically a SCHEME primitive (but user FSUBRs are not). Of course, if 
the FSUBR tries to evaluate some form obtained from its argument, the 
variable references will not refer to SCHEME variables. As a special case, 
the SCHEME syntactic extension aarraycall is provided to get the effect of 
the MacLISP FSUBR arraycall 



C. 2. User-Provided Ext ensions 

■ ■• ■ " ' — • ' ' ' ' " ■ i ■ ■■ ■ ■ ■■■ i >>• .■ •• 

A SCHEME implementation should have one or more ways for the user to 
extend the inventory of magic words. The methods provided will vary from 
implementation to implementation. The following primitive (schmac) is provided 
in the PDP-10 MacLISP implementation of SCHEME. 



(SCHMAC name pattern body) 

After execution of this form, a syntactic extension keyed on the 
atom name is defined. When a form (name . rest) is to be evaluated, rest is 
matched against the pattern, which is a (possibly "dotted") list of 
variables. The body is then evaluated in an environment where the 
variables in the pattern have as values the corresponding parts of rest. 
This should result in a form to be evaluated in place of the form 

(name . rest ) . ' 

The body is not necessarily SCHEME code, but rather code in the 
same meta-language used to write the evaluator. In the PDP-10 MacLISP 
SCHEME implementation, the body is MacLISP code. 

As an example, here is a definition of test: 

(SCHMAC TEST (PRED FN ALT) 

(LIST '(LAMBDA <P F A) (IF P ((F) P) (A))) 
PRED 

(LIST 'LAMBDA '() FN) 
(LIST 'LAMBDA '() ALT))) 

The body of a SCHMAC almost always performs a complicated consing- 
tip of a program structure. Often one needs to make a copy of a standard 
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structure, with a few values filled in. To make this easier, SCHEME 
provides an "unquoting quote" feature. An expression of the form "<s- 
expression> is just like » <s-ex P ression>, except that sub-expressions preceded 
by ! \" or "e" represent expressions whose values are to be made part of (a 
copy of) the s-expression at that point. A "/'denotes simple inclusion, 
while "e" denotes "splicing" or "segment" inclusion. (Compare this with 
the treatment of lists with embedded forms in MUDDLE [Galley and Pfister], 
which in turn inspired the r syntax of CONNIVER [McDermott and Sussman], 
from which SCHEME'S " syntax is derived.) Using this, one can define test 
as follows: 

(SCHMAC TEST (PREO FN ALT) 

"((LAMBDA (P F A) (IF P ((F) P) (A))) 
,PRED 

(LAMBDA () ,FN) 
(LAMBDA () ,ALT))) 

Similarly, let can be defined as: 

(SCHMAC LET (DEFNS . BODY) 

"((LAMBDA ,(MAPCAR /CAR DEFNS) 
(BLOCK . .BODY)) 
S(MAPCAR 'CADR DEFNS))) 

One could also write (block §body) instead of (block ... .body). 

Notice the use of (mapcar »car defns) rather than (amapcar car defns), and 
recall that, as stated above, the body of a schmac is MacLISP code, not 
SCHEME code. Consider too this definition of cond: 

(schmac cond clauses 

(COND ((NULL CLAUSES) "NIL) 
. ((NULL (CDAR CLAUSES)) 

' "((LAMBDA (V R) (IF V V R)) 
f (CAAR CLAUSES) 

(LAMBDA () (CONO . ,(CDR CLAUSES))))) 
((EQ (CADAR CLAUSES) »=>) 

"(TEST ,(CAAR CLAUSES) ,(CADDAR CLAUSES) (COND . ,(C0R CLAUSES)))) 
(T "(IF ,(CAAR CLAUSES) 

(BLOCK -.' ,(CDAR CLAUSES)) 
(COND . ,(CDR CLAUSES)))))) 

We have used cond to define cond! The definition is not circular, however; 
the MacLISP cond is being used to define the SCHEME cond, and indeed the two 
have slightly different semantics. The definition would have been circular 
had we written (cond (v) (r)) instead of (if v v r), for the' latter is part of 
the generated SCHEME code. 
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(MACRO name pattern body) 

This is just like schmac, except that body is SCHEME code rather 
than MacLISP code. While macros defined with schmac run only in a MacLISP 
implementation of SCHEME, those defined with macro should be completely 
transportable. (We described schmac first to emphasize the fact that macros 
are conceptually part of the interpreter, and so conceptually written in 
the meta-language. It so happens, however, that SCHEME is a good meta- 
language for SCHEME, and so introducing this meta-circularity provides no 
serious problems. Contrast this with writing PL/I macros in PL/I!) 

The example of defining cono using schmac above would be circular if 
we changed the word schmac to macro. However, we can avoid this by avoiding 
the use of cono in the definition: 

(MACRO CONO CLAUSES 

(IF (NULL CLAUSES) "NIL 

(IF (NULL (CDAR CLAUSES)) 

"((LAMBDA (V R) (IF V V R)) 
,(CAAR CLAUSES) 

(LAMBDA () (COND . , (COR CLAUSES)))) 
(IF (EQ (CADAR CLAUSES) '=>) 
"(TEST ,(CAAR CLAUSES) 

.(CADDAR CLAUSES) 
• (COND . ,(CDR CLAUSES))) 
"(IF ,(CAAR CLAUSES) 

(BLOCK . ,(CDAR CLAUSES)) 
(COND . ,(C0R CLAUSES))))))) 

We strongly encourage the use of macro instead of schmac in practice 
so that macro definitions will not be dependent on the properties of a 
specific implementation. 



jip% 
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D. Primitive SCHEME Functions 

All the usual MacLISP SUBRs are available in SCHEME as procedures 
which are the values of global variables. The particular primitives cons, car, 
cor, atom, and eq are part of the kernel of SCHEME! Others, such as +, -, % 
//, =, equal, rplaca, rplacd, etc. are quite convenient to have. 

Although there is no way in SCHEME to write a LEXPR (a function of a 
variable number of arguments), MacLISP LSUBRs are also available to the SCHEME 
user. One may wish to regard these as syntactic extensions in much the same 
way amapcar is; for example, list may be thought of as a syntactic extension 
such that: 

(LIST) -* -NIL 
• (LIST x . r) -> (CONS x (LIST . r)) 

Below we also describe some additional primitive functions provided 
with SCHEME. Their names do not have any special syntactic properties in the 
way that the magic words for syntactic extensions described in the previous 
section do. However, they do deal with the underlying implementation, and so 
could not be programmed directly by the user were they not provided as 
1 primitives. 



The following primitive functions (procp and enclose) are part of the 
kernel of SCHEME. 



(PROCP thing) 

This is a predicate which is true of procedures, and not of 
anything else. Thus if (procp x) is true, then it is safe to invoke the 
value of x. 

More precisely, if procp returns a non-NiL value, then the value 
describes the number of arguments accepted by the procedure. For SCHEME 
procedures this will be an integer, the number of arguments. For primitive 
functions, this may be implementation-dependent; in the PDP-10 MacLISP 
implementation of SCHEME, procp of an LSUBR returns the MacLISP args 
property for that LSUBR. If an object given to procp is a procedure but 
the number of arguments it requires cannot be determined for some reason, 
then procp returns t. 



(ENCLOSE fnrep envrep) 

enclose takes two s-expressions, one representing the code for a 

procedure, and the other representing the (lexical) environment in which 

the procedure is to run. enclose returns a (closed) procedure which can be 
invoked. 
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The representation of the code is the standard s-expression 
description (a lambda-expression). The representation of the environment 
is an association list (a-list) of the traditional kind: 

((varl . valuel) (varZ . value2) ...) 

nil represents the global lexical environment. 

This description of enclose should not be construed a$ describing 
how the implementation of SCHEME represents either environment or code 
internally. Indeed, enclose could be as simple as cons, or as complicated as 
a compiler. All that enclose guarantees to do is to compute a procedure 
object given a description of its desired behavior. The description must 
be in the prescribed form; but the result may be in any form convenient to 
the implementation, as long as it satisfies the predicate procp (Note 
evaluate Has Disappeared} {Note S-expressions Are Not Functions}. 

As an example, we can write apply using enclose* One way is to 
generate a lot of names for the arguments involved: 

(DEFINE APPLY , 

(LAMBDA (FN ARGS) 

(LET ((VARS (AMAPCAR (LAMBDA (X) (GENSYM)) ARGS)) 
(FNVAR (GENSYM))) 
((ENCLOSE "(LAMBDA ()(, FNVAR §VARS)) 
(CONS (CONS FNVAR FN) 

(AMAPCAR CONS VARS ARGS))))))) 

Here a procedure which will call the procedure fn on the required number of 
arguments is enclosed in an environment with all the variables bound to the 
appropriate values. For those who don't like gensym, here is another way to 
do it: 

(DEFINE APPLY 

(LAMBDA (FN ARGS) 

(00 ((TAIL 'A "(CDR ,TAIL)) 

(REFS NIL (CONS "(CAR JAIL) REFS)) 
(COUNT ARGS (CDR COUNT))) 
((NULL COUNT) 
((ENCLOSE "(LAMBDA (FA) (F §(REVERSE REFS))) NIL) 
FN ARGS))))) 

In this version we create a series of forms (car a), (car (cdr a)), (car (cor 
(CORA))), ... to be used to access the arguments. (In a way, these are 
distinct names for the arguments in the same way that the gensyms were for 
the first version.) The values fn and args are passed in as arguments to 
the enclosed procedure, rather than giving a non-NiL environment 
representation to enclose. 

As another example, we define a function called *lambda: 
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y"\ (DEFINE (*LAMBDA VARS BODY) 

(ENCLOSE "(LAMBDA , VARS .BODY) NIL)) 

Writing (*lamboa '(x y) -(foo y x)) is just like writing (lambda (x y) (foo y x)). 
However, if there are any free variables in the supplied body, then «lamboa 
will cause them to refer to the global environment, not the current one. 
We cannot in general simulate lambda by using *lambda, because SCHEME 
(purposefully) does not provide a general way to get a representation of 
the current environment. We could, of course, require the user to give 
*lambda a representation of the current environment, but this hardly seems 
worthwhile. 



The following primitive functions allow for multiprocessing. We do 
not pretend that they are "right" in any sense, and are not particularly 
attached to these specific definitions. They are not part of the kernel of 
SCHEME, (Their primary use in practice is for bootstrapping SCHEME by 
creating an initial process for the top-level user interface loop.) 

There are no primitives for process synchronization, as we have no 
good theory of how best to do this. However, in the PDP-10 MacLISP 
implementation of SCHEME we guarantee that SUBRs and LSUBRs execute in an 
uninterruptible fashion; that is, such functions can be considered "atomic'' 
— for synchronization purposes. The user, is invited to exploit this fact to 

invent his own synchronization primitives (Note evaluate iuninterruptibly Has 
Disappeared}. 



(CREATE! PROCESS proc) 

This is the process generator for multiprocessing. It takes one 
argument, a procedure of no arguments. If the procedure ever terminates, 
the entire process automatically terminates. The value of create 'process is 
a process ID for the newly generated process. Note that the newly created 
process will not actually run until it is explicitly started. When 
started, the procedure will be invoked (with no arguments), and the process 
will run "in parallel" with all other active processes. 



(START (PROCESS procid) 

This takes one argument, a process id, and starts up or resumes 
that process, which then runs. 



'r^. 
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(STOP! PROCESS procid) 



This also takes a process id, but stops the process. The stopped 
process may be continued from where it was stopped by using start!process 
again on it. The global variable **process** always contains the process id 
of the currently running process; thus a process can stop itself by doing 

(STOPIPROCESS **PR0CESS**). 



(TERMINATE) 

This primitive stops and kills the process which invokes it. The 
process may not be resumed by stmt process. Some other process is selected 
to run. If the last process is terminated, SCHEME automatically prints a 
warning message, and then creates a new process running the standard SCHEME 
"read-eval-print" (actually "read— stick (lambda () .) around— enclose in top- 
level environment— invoke—print" ) loop. 

An example of the use of terminate: 

(TERMINATE) 



f***^. 
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Notes 



{Note Notes Are in Alphabetical Order} 



{aset Has Disappeared} 

The more general primitive aset described in [SCHEME] has been 
removed from the SCHEME language. Although the case of a general evaluated 
expression for the variable name causes no real semantic difficulty (it can 
be viewed as a syntactic extension representing a large case statement, as 
pointed out in [Declarative]), it can be confusing to the reader. 
Moreover, in two years we have not found a use for it. Therefore we have 
replaced aset with aset-, which requires the name of the variable to be 
modified to appear manifestly. 

We confess to being "cute" when we say that the name of the 
primitive is aset 1 . We have not changed the implementation at all, but 
merely require that the first argument be quoted, the form (aset' foo bar) 
is parsed by the MacLISP reader as (aset (quote foo) bar). Of course, a 
different implementation of SCHEME might actually take aset 1 as a single 
name. We apologize for this nonsense. 



{block Exploits Applicative Order} '•..'.. 

The definition shown for block exploits the applicative order of 
evaluation of SCHEME to perform this {Note Normal Order Loses}. It does 
not depend on left-to-right evaluation of arguments to functions! Notice 
also that in 

(BLOCK x . r) -> ((LAMBDA (A B) (B)) x (LAMBDA () (BLOCK . r))) 

there can be no conflict between the auxiliary variables a and B and any 
variables occurring in x and r. It is thus unnecessary to choose variables 
different from any others appearing in the code. In this respect this 
definition is an improvement over the one given in [Imperative]. This 
trick (which is actually a deep property of the lexical scoping rules) is 
used in a general way in most of the definitions of syntactic extensions: 
one wraps all the "user code" in lambda-expressions in the outer 
environment, passes them in bound to internal names, and then invokes them 
as necessary within the internal code for the definition. 



/""N 
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{Environment Symmetry} 

One may think of an escape object as being "closed" with respect to 
a dynamic environment (and here we mean not only fluid variables but the 
chain of pending procedure calls) in much the same way that an ordinary 
procedure is closed with respect to a lexical environment. Just as a 
procedure cannot execute properly except in conjunction with a static 
environment of the appropriate form, so an escape object cannot properly 
resume control except in a dynamic environment of the appropriate form. 



{evaluate Has Disappeared} 

The evaluate primitive described in [SCHEME] has been removed from 
the language. We discovered (the hard way) that the straightforward 
implementation of evaluate (evaluate the given expression in the current 
environment) destroys referential transparency. We then altered it to 
evaluate the expression in the top-level environment, but were still 
disturbed by the extent to which one is tied to a particular representation 
of a procedure to be executed. 

We eventually invented an enclose of one argument (a lambda- 
expression), which enclosed the procedure in the top-level environment. 
^* s This allowed one to remove the dependence on representation by making a 

procedure, and then to pass the procedure around for a while before 
invoking it. We had no provision for closing in an arbitrary environment, 
because we did not want to provide the user with direct access to 
environments as data objects. The excellent idea of allowing enclose to 
accept a representation of an environment was suggested to us by R. M. 
Fano. 



{ evaluate iuninterruptibly Has Disappeared} 

The evaluate iuninterruptibly primitive described in [SCHEME] has been 
removed from the language. This primitive was half a joke, and we have 
since discovered that it had a serious flaw in its definition, namely that 
the scope of the uninterruptibility is lexical. This worked in our limited 
examples only by virtue of the fact that SUBRs were atomic operations. In 
general, this primitive i$ worse than useless for synchronization purposes 
Synchronization is clearly a dynamic and not a static phenomenon. We have 
no good theory of synchronization (primitives for this were included in 
[SCHEME] primarily to show that it could be done, however kludgily), and so 
have defined no replacement for evaluate iuninterruptibly. We apologize for any 
confusion this mistake may have caused. 
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(FEXPRs Are Okay by Us} 

While the syntactic extensions are defined in terras of other 
constructs, they need not be implemented in terms of them. For example, in 
the current PDP-10 MacLISP implementation of SCHEME, block is actually 
implemented in the same way if and quote are, rather than as a macro in 
terms of lambda. This was done purely to speed up the interpreter. The 
compiler still uses the macro definition (though we could change that too 
if warranted). The point is that the user doesn't have to know about all 
this. 

It is somewhat an accident that magic forms look like procedure 
calls (see also (Note funcall is a Pain}): a name appearing in the car of a 
list may represent either a procedure or a magic word, but not both. (We 
could, for example, say that magic forms are distinguished by a magic word 
in the cadr of a list, thus allowing forms such as (foo .= (+ foo i)), where 
:- is a magic word for assignment. PLASMA [Smith and Hewitt] allowed just 
this ability with its "italics" or "reserved word" feature.) Thanks to 
this accident many LISP interpreters store the magic function definition in 
the place where an ordinary procedure definition is stored. A special 
marker (traditionally EXPR/SUBR or FEXPR/FSUBR) distinguishes ordinary 
functions from magic ones. This allows the lookup for a magic word 
definition and an ordinary value to be simultaneous, thus speeding up the 
implementation; it is purely an engineering trick and not a semantic 
essence. However, this trick has led to a generalization wherein quote and 
cond are regarded as functions on an equal basis with car and cons; to be 
sure, they take their arguments in a funny way - unevaluated - but they 
are still regarded as functions. This leads to all manner of confusion, 
which has its roots in a confusion between a procedure and its 
representation. 

It is helpful to consider a simple thought experiment. Let us 
postulate a toy language called "Number-LISP". Programs in this language 
are written as s-expressions, as usual; the kernel primitives lambda, if, 
labels, etc. are all present. However, the primitive functions cons, car, 
and cor are absent; one has only +, -, *, //, and =. quote is not 
available; the only constants one can write are numbers. 

Now Number-LISP can be used to perform all kinds of arithmetic, but 
it is clearly a poor language in which to write a LISP interpreter. Now 
consider the magic form processors and syntactic extension functions for 
Number-LISP. They are procedures on s-expressions or functions from s- 
expressions to s-expressions which transform one form into another. 
Whatever processes IF or labels or block is clearly not a Number-LISP 
procedure, because it must deal with the text of a Number-LISP procedure, 
not just the data to be operated on by that procedure. The if -processor (a 
"FEXPR") for Number-LISP must be coded in the meta-language for Number- 
LISP, whatever that may be. 

Now it is one of the great features of ordinary LISP that it can 
serve as its own meta-language. This provides great power, but also 
permits great confusion. If the implementation allows mixing of levels of 
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definition, we must keep them separate in our minds. For this reason we 
don't mind using the "FEXPR hack" to implement syntactic forms, but we do 
mind thinking of them as functions just like EXPRs. 



{funcall is a Pain} 

The ambiguity between magic forms and combinations could be 
eliminated by reserving a special subclass of lists to represent 
combinations, and allowing all others to represent magic forms. For 
example, we might say that all lists beginning with the atom call are 
combinations. Then we would write (call cons a b) rather than (cons a b). One 
could then have a procedure named lambda, for example; there could be no 
confusion between (lambda (a) (b. a)) and (call lambda (call a) (call b a)), as there 
would be between (lambda (a) (b a)) as a combination and as a magic form 
denoting a procedure. Notice that call is intended to be merely a 
syntactic marker, like lambda or if, and not a function as funcall is in 
MacLISP [Noon]. 

If this call convention were adopted, there could be no confusion 
between combinations and other kinds of forms. Not all expressions would 
have meaningful interpretations; for example (foo a b) would not mean 
anything (certainly not a call to the function foo, which would be written 
as (call foo a b)). The space of meaningful s-expressions would be a very 
sparse subset of all s-expressions, rather than a dense one. ft would also 
make writing SCHEME code very clumsy. (These two facts are of course 
correlated.) Combinations occur about as often as all other non-atomic 
forms put together; we would like to write as little as possible to denote 
a call. As in traditional LISP, we agree to tolerate the ambiguity in 
SCHEME as the price of notational convenience. Indeed, this ambiguity is 
sometimes exploited; it is convenient not to have to know whether amapcar 
is a function or a magic word. 

This compromise does lead to difficulties, however. For example, 
we had wanted to define an iteration feature: 

(LOOP name varspecs body) 

Unfortunately, there is a great deal of existing code written in SCHEME of 
the form: 

(LABELS ((LOOP (LAMBDA ... (LOOP ...)...))) 
(LOOP . . . ) ) 

because loop has become a standard name for use in a labels procedure which 
implements an iteration (see, for example, our definition of do!). If loop 
were to become a new magic word, then all this existing code would no 
longer work. We were therefore forced to name it iterate instead (after 
verifying that no existing code used the name iterate for another purpose!). 
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There would have been no problem if all this code had been written as: 

(LABELS ((LOOP (LAMBDA ... (CALL LOOP ...)...))) 
(CALL LOOP ...)) 

To this extent SCHEME has unfortunately, despite our best intentions, 
inherited a certain amount of referential opacity. 



{Global Fluid Environment} 

There is a question as to the meaning of the global fluid 
environment. In the PDP-10 MacLISP implementation of SCHEME, the global 
lexical and fluid environments coincide, but this was an arbitrary choice 
of convenience influenced by the structure of MacLISP. We recommend that 
the two global environments be kept distinct. 



(if Is Data-Dependent} 

We should note that the usefulness of the definition of if 
f*\ explicitly depends on the particular kinds of data types and the particular 

primitive functions available; we expect to use if with primitive 
predicates such as atom and eq. This is in contrast to other kernel forms 
such as lambda and labels expressions, whose semantics are independent of the 
data. 

We erred in [SCHEME] when we stated that a practical interpreter 
must have a little of each of call-by-value and call-by-name in it. The 
argument was roughly that a call-by-name interpreter must become call-by- 
value when a primitive operator is to be applied, and a call-by-value 
interpreter must have some primitive conditional such as if. We did 
mention the trick of eliminating if in a call-by-name interpreter by 
defining predicates to return (lambda (x y) x) for TRUE and (lambda (x y) y) for 
FALSE, whereupon one typically writes: 

((= A B) <do this if TRUE> <do this if FALSE)) 

but noted that it depends critically on the use of normal order evaluation. 
What we had not fully understood at that point was the trick of 
simulating call-by-name in terms of call-by-value by using lambda- 
expressions (our use of it in the TRY! TWO! THINGS! IN! PARALLEL example 
notwithstanding!); this trick was described generally in [Imperative]. A 
special case of this trick is to define the primitive predicates in a call- 
by-value interpreter to return (lambda (x y) (x)) for TRUE and (lambda (x y) (v.)) 
O 1 for FALSE. Then one can write things like: 
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■;..■((■ a B) 

(LAMBDA () <do this if TRUE)) 
(LAMBDA () <do this if FALSE))) 

and so eliminate a call-by-name-like magic form such as if. One can make 
the dependence of the conditional on the primitive data operations even 
more explicit by defining predicates not to return any particular value, 
but to require two "continuations" as arguments, of which it will invoke 
one: 

(= A B 

(LAMBDA () <do this if TRUE)) 
(LAMBDA () <do this if FALSE))) 

We were correct when we said that a practical interpreter must have call- 
by-name to some extent in that there must be some way to designate two 
pieces of as yet uninterpreted program text of which only one is to be 
evaluated. We simply did not notice that lambda provides this ability, and 
so a separate primitive such as if is not necessary. We have chosen to 
retain if in the language because it is traditional, because its 
implementation is easy to understand, and because it allows us to take 
advantage of many existing predicates in the host language in the PDP-10 
MacLISP implementation. 



{LISP BNF} 

These rules refer to the following rules for LISP s-expressions: 

Atomic symbol) ::= Alphanumeric string) Cletter) Alphanumeric string) 

Alphanumeric string) ::= <empty> | Alphanumeric character) Alphanumeric string) 

Alphanumeric character) ::*= Oetter) | <digit> | / <character) 

<letter> : :■ A | B | . . .' | Y | Z | * | $ | '% | . . . 

<digit> ::= | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 

<number) ::* <VERY implementation dependent) 

<string) ::= M <character string) H 

^character string) ::= <empty> | <literal character) ^character string) 

<literal character) ::= <any character except " or /> | / <character> 

(In the PDP-10 MacLISP implementation of SCHEME, we use the "character for 
another purpose because PDP-10 MacLISP does not have a string data type. 
We mention strings only as a familiar example other than numbers of an 
atomic data type other than identifiers.) 

In addition, we assume the usual interchangeability of list 
notation and dot notation for s-expressions: (a b c) * (a . (b '. (c . nil))). 
Thus the pattern ( <magic word) . <s-expression> ) may match the list (cono (a b) 
(t c)>. It is the s-expression representation we care about, not particular 
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character strings. 



{LISP Is a Ball of Mud} 

LISP is extensible in two ways. First, there is the simple ability 
to define new functions; these are used in a way that is both 
syntactically and semantically identical to built-in primitive functions 
like car. This is in contrast to "algebraic" programming languages, which 
either make an arbitrary syntactic distinction between addition, say, and a 
user function, or wander into the quagmire of extensible parsers. Second, 
there is a uniform macro facility for transforming one syntactic form into 
another; this facility is based on internal data structures rather than 
external character-string syntax. 

Joel Moses (private communication) once made some remarks on the 
difference between LISP and APL, which we paraphrase here: "APL is like a 
diamond. It has a beautiful crystal structure; all of its parts are 
related in a uniform and elegant way. But if you try to extend this 
structure in any way - even by adding another diamond - you get an ugly 
kludge. LISP, on the other hand, is like a ball of mud^ You can add any 
amount of mud to it (e.g. MICRO-PLANNER or CONNIVER) and it still looks 
like a ball of mud!" 



(Multiple Throw) 

A full implementation of SCHEME allows this to work even if the 
CATCH has already been "returned from"; that is, the escape object can be 
used to "return from the catch" several times. However, we allow the 
possibility that an implementation may allow the escape object to be 
invoked only from within the execution of the form inside the catch. (This 
is essentially the restriction that MacLISP makes on its catch construct 
[Moon].) This restriction permits a stack discipline for the allocation of 
continuations, and also greatly simplifies the flow analysis problem for a 
compiler [RABBIT]. 



(Normal Order Loses) 

Our definition of block exploits the fact that SCHEME is an 
applicative-order (call-by-value) language in order to enforce sequencing. 
Sussman has proved that one cannot do a similar thing in a normal-order 
(call-by*name) language: 
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Theorem: Normal order, as such, is incapable of enforcing sequencing 
(whereas applicative order is) in the form of the block construct/ 

(Inf ormal) proof: The essence of (block a b) is that a is evaluated 
before b, and that the value of b is the value of the block (or, 
more correctly, the value or meaning of the block is independent of 
a; a is executed only for its side effects). Now we know that if 
(block a b) has any value at all, it can be found by using normal 
order (normal order terminates if any order does). Now suppose 
that the computation of a does not terminate, but the computation 
of b does. Then (block a b) must terminate under normal order, 
because the value of the block is the value of b; but this 
contradicts the requirement that a finish before b is calculated. 
QED 

This is an informal indication that normal order is less useful (or at 
least less powerful) in a programming language than applicative order. We 
also noted in [SCHEME] that normal order iterations tend to consume more 
space that applicative order iterations, because of the buildup of thunk 
structure. Given that one can simulate normal order in applicative order 
by explicitly creating closures [Imperative], there seems to be little to 
recommend normal order over applicative order in a practical programming 
language. 



(Notes Are in Alphabetical Order} 

The notes are ordered alphabetically by name, not in order of 
reference within the text. 



{S-expressions Are Not Functions} 

Recall that a lambda-expression (i.e. an s-expression whose car is 
the atomic symbol lambda) is not itself a valid procedure. It *is necessary 
to enclose it in order to invoke it. 

Moreover, the particular representations we have chosen for 
procedures and environments are arbitrary. In principle, one could have 
several kinds of ENCLOSE, each transforming instances of a particular 
representation into procedures. For example, someone might actually want 
to implement a primitive algol-enclose, taking a string and a 2-by-N array 
representing code and environment for an ALGOL procedure: 

(ALGOL-ENCLOSE "integer procedure fact(n); value n; integer n; 
fact := if n=0 then 1 else n*fact(n-l)" 
NULL-ARRAY) 
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This could return a factorial function completely acceptable to SCHEME. Of 
course, the implementation of the primitive Algol-enclose would have to know 
about the internal representations of procedures used by the implementation 
of SCHEME; but this is hidden from the user. 

Similarly, one could have apl-enclose, basic-enclose, cobol-enclose, 

FORTRAN-ENCLOSE, RPG-ENCLOSE ... 



{Tail-Recursive and} 

The definition of and has three rules, not only for the same 
reasons or does, but because and is not a precise dual to or. or, on 
failure, returns nil, but and does not just return non-NR on success. It 
must return the non-NR thing returned by its last form. 



{Tail-Recursive or} 

We might have defined or with only two rules: 

(OR) -» 'NIL 
7^ (OR x . r) -> (COND (x) (T (OR . r))) 

However, because of the way or is sometimes used, it is a technical 
convenience to be able to guarantee to the user that the last form in an or 
is evaluated without an extra "stack frame"; that is, a function called as 
the last form in an or will be invoked tail-recursively. For example: 

(DEFINE NOT-ALL-NIL-P 
(LAMBDA (X) 

(LABELS ((LOOP 

(LAMBDA (Z) 

(OR (CAR Z) (LOOP (CDR Z)))))) 
(LOOP X)))) 

executes iteratively in SCHEME, but would not execute iteratively if the 
two-rule definition of or were used. 



{What Use Is It?} 

We should perhaps say instead that <identifier> is treated the same 

^^ as (static <identifier>). The static construction is included in SCHEME 

**" primarily for pedagogical purposes, to provide symmetry # to (fluid 

<identifier>). The fact that lone atomic symbols are interpreted 1 as lexical 
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variables rather than dynamic ones is in some sense arbitrary. Some 
critics of SCHEME [personal communications] have expressed a certain horror 
that there are two kinds of variables, perhaps imagining some confusion in 
the interpretation of simple identifiers. We can have as many kinds of 
variables as we like (though we have so far discovered only two kinds of 
any great use), as long as we can distinguish them. In SCHEME we 
distinguish them with a special marker, such as static or fluid; then, as a 
convenience, we prescribe that simple atomic symbols, not marked by such a 
keyword, shall also be interpreted as lexical variables, because that is 
the kind we use most often in SCHEME. We could as easily have defined 
simple symbols to be interpreted as fluid variables, or for that matter as 
constants (as numbers and strings are). We could also have prescribed a 
different method of distinguishing types, e.g. "all variables beginning 
with I, J, K, L, M, or N shall be fluid". (This is not as silly as it 
sounds. A fairly wide-spread LISP convention is to spell global variables 
with leading and trailing *, as in *foo*, and some programmers have wished 
that the compiler would automatically treat variables so spelled as 
SPECIAL.) Indeed, given the read-macro-character facility, we effectively 
have the syntactic rule "all variables beginning with • shall be fluid". 
We have settled on the current definition of SCHEME as being the most 
convenient both to implement and to use. 

Compare the use of syntactic markers and read-macro-characters to 
the constructions <gval x> = ,x * "global value of x" and <lval x> = .x = 
"local value of x" in MUDDLE [Galley and Pfister]. Indeed, in MUDDLE a 
simple atomic symbol is regarded as a constant, not as an identifier. 

All this suggests another solution to the problem posed in {Note 
FUNCALL is a Pain} (the confusion of magic forms with combinations). The 
real problem is distinguishing a magic word from a variable. Let us 
abbreviate (static foo) to =foo, just as (fluid foo) can be abbreviated as »foo. 
Then (sloop a b) would have to be a call on the function loop, and not a 
magic form. Similarly, we could write (magicworo cond) instead of cond, and 
invent an abbreviation for that too. This all raises as many problems as 
it solves by becoming too clumsy; but then again, maybe it isn't asking 
too much to require the user to write all magic words in boldface (as in 
the ALGOL reference language) or in italics (as in an early version of 
PLASMA [Smith and Hewitt])... 
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